home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / system / pc_dcl.zip / BAR.DCL next >
Text File  |  1992-01-09  |  476b  |  16 lines
  1. $       today == f$extract(0,11,f$time())
  2. $       open /read/error=sethost infile "bar.dat"
  3. $       read /error=sethost /end=sethost infile data
  4. $       if f$extract(0,11,data) .EQS. today then goto exit
  5. $sethost:
  6. $       run sethost bigsys
  7. $       open /write/error=file_error outfile "bar.dat"
  8. $       write /error=file_error outfile today
  9. $       close outfile /error=file_error
  10. $       goto exit
  11. $file_error:
  12. $       write sys$output "File error"
  13. $exit:
  14.  
  15.  
  16.